Option Strict Off
Option Explicit On

Public Class Tarea
    Private m_CodigoTarea As Integer
    Private m_CodigoArchivo As Integer
    Private m_CodigoOperacionU As Integer
    Private m_IdUsuario As String
    Private m_CodArchivo As Integer
    Private m_Estado As Short
    Private m_FechaEstado As String
    Private m_FechaInicio As String
    Private m_FechaTermino As String
    Private m_GlosaOperacion As String
    Private m_GlosaArchivo As String
    Private m_Nombre As String
    Private m_NroRegistros As Integer
    Private m_Registros As String
    Private m_CodigoStack As String
    Private m_CodigoRegStack As Short
    Private m_Activados As Integer
    Private m_CodFormato As Short

    Public Property Activados() As String
        Get
            Activados = CStr(m_Activados)
        End Get
        Set(ByVal Value As String)
            m_Activados = CInt(Value)
        End Set
    End Property

    Public Property CodigoStack() As String
        Get
            CodigoStack = m_CodigoStack
        End Get
        Set(ByVal Value As String)
            m_CodigoStack = Value
        End Set
    End Property

    Public Property CodigoRegStack() As Integer
        Get
            CodigoRegStack = m_CodigoRegStack
        End Get
        Set(ByVal Value As Integer)
            m_CodigoRegStack = Value
        End Set
    End Property

    Public Property Registros() As String
        Get
            Registros = m_Registros
        End Get
        Set(ByVal Value As String)
            m_Registros = Value
        End Set
    End Property

    Public Property Nombre() As String
        Get
            Nombre = m_Nombre
        End Get
        Set(ByVal Value As String)
            m_Nombre = Value
        End Set
    End Property

    Public Property GlosaOperacion() As String
        Get
            GlosaOperacion = m_GlosaOperacion
        End Get
        Set(ByVal Value As String)
            m_GlosaOperacion = Value
        End Set
    End Property

    Public Property GlosaArchivo() As String
        Get
            GlosaArchivo = m_GlosaArchivo
        End Get
        Set(ByVal Value As String)
            m_GlosaArchivo = Value
        End Set
    End Property

    Public Property NroRegistros() As Integer
        Get
            NroRegistros = m_NroRegistros
        End Get
        Set(ByVal Value As Integer)
            m_NroRegistros = Value
        End Set
    End Property

    Public Property CodigoTarea() As Integer
        Get
            CodigoTarea = m_CodigoTarea
        End Get
        Set(ByVal Value As Integer)
            m_CodigoTarea = Value
        End Set
    End Property

    Public Property CodigoArchivo() As Integer
        Get
            CodigoArchivo = m_CodigoArchivo
        End Get
        Set(ByVal Value As Integer)
            m_CodigoArchivo = Value
        End Set
    End Property

    Public Property CodigoOperacionU() As Integer
        Get
            CodigoOperacionU = m_CodigoOperacionU
        End Get
        Set(ByVal Value As Integer)
            m_CodigoOperacionU = Value
        End Set
    End Property

    Public Property IdUsuario() As String
        Get
            IdUsuario = m_IdUsuario
        End Get
        Set(ByVal Value As String)
            m_IdUsuario = Value
        End Set
    End Property

    Public Property Estado() As Short
        Get
            Estado = m_Estado
        End Get
        Set(ByVal Value As Short)
            m_Estado = Value
        End Set
    End Property

    Public Property FechaEstado() As String
        Get
            FechaEstado = m_FechaEstado
        End Get
        Set(ByVal Value As String)
            m_FechaEstado = Value
        End Set
    End Property

    Public Property FechaInicio() As String
        Get
            FechaInicio = m_FechaInicio
        End Get
        Set(ByVal Value As String)
            m_FechaInicio = Value
        End Set
    End Property

    Public Property FechaTermino() As String
        Get
            FechaTermino = m_FechaTermino
        End Get
        Set(ByVal Value As String)
            m_FechaTermino = Value
        End Set
    End Property

    Public Property CodArchivo() As Integer
        Get
            CodArchivo = m_CodArchivo
        End Get
        Set(ByVal Value As Integer)
            m_CodArchivo = Value
        End Set
    End Property

    Public Property CodFormato() As Short
        Get
            CodFormato = m_CodFormato
        End Get
        Set(ByVal Value As Short)
            m_CodFormato = Value
        End Set
    End Property

    Public ReadOnly Property Key() As String
        Get
            Return m_CodigoTarea
        End Get
    End Property
End Class